home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
DJGPP
/
DJLSR111.ZIP
/
libsrc
/
c
/
io
/
filbuf.c
< prev
next >
Wrap
C/C++ Source or Header
|
1993-06-28
|
2KB
|
77 lines
/* This is file FILBUF.C */
/* This file may have been modified by DJ Delorie (Jan 1991). If so,
** these modifications are Coyright (C) 1993 DJ Delorie, 24 Kirsten Ave,
** Rochester NH, 03867-2954, USA.
*/
/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*/
#if defined(LIBC_SCCS) && !defined(lint)
static char sccsid[] = "@(#)filbuf.c 5.3 (Berkeley) 3/9/86";
#endif LIBC_SCCS and not lint
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
char *malloc();
_filbuf(iop)
register FILE *iop;
{
int size;
struct stat stbuf;
extern char *_smallbuf;
char c;
if (iop->_flag & _IORW)
iop->_flag |= _IOREAD;
if ((iop->_flag&_IOREAD) == 0)
return(EOF);
if (iop->_flag&(_IOSTRG|_IOEOF))
return(EOF);
tryagain:
if (iop->_base==NULL) {
if (iop->_flag&_IONBF) {
iop->_base = _smallbuf ? &_smallbuf[fileno(iop)] : &c;
goto tryagain;
}
if (fstat(fileno(iop), &stbuf) < 0 || stbuf.st_blksize <= NULL)
size = BUFSIZ;
else
size = stbuf.st_blksize;
if ((iop->_base = malloc(size)) == NULL) {
iop->_flag |= _IONBF;
goto tryagain;
}
iop->_flag |= _IOMYBUF;
iop->_bufsiz = size;
}
if (iop == stdin) {
if (stdout->_flag&_IOLBF)
fflush(stdout);
if (stderr->_flag&_IOLBF)
fflush(stderr);
}
iop->_cnt = read(fileno(iop), iop->_base,
iop->_flag & _IONBF ? 1 : iop->_bufsiz);
iop->_ptr = iop->_base;
if (iop->_flag & _IONBF && iop->_base == &c)
iop->_base = NULL;
if (--iop->_cnt < 0) {
if (iop->_cnt == -1) {
iop->_flag |= _IOEOF;
if (iop->_flag & _IORW)
iop->_flag &= ~_IOREAD;
} else
iop->_flag |= _IOERR;
iop->_cnt = 0;
return(EOF);
}
return(*iop->_ptr++&0377);
}